home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD-ROM Collection / Amiga CD-ROM Collection - Auge 4000 and Cactus and Demo Util.iso / auge4000 / 46 / lib / memory / slow.a < prev   
Text File  |  1990-06-20  |  649b  |  46 lines
  1.  
  2.         ;   slow.a    -slow (small) memory routines, used by
  3.         ;         startup code to keep it small
  4.         ;
  5.         ;   (c)Copyright 1990, Matthew Dillon, All Rights Reserved
  6.  
  7.         section text,code
  8.  
  9.         ;   bcopy s,d,n
  10.         ;      4 8 12
  11.         ;
  12.         ;   bzero(d,n)
  13.  
  14.         xdef    __slow_bcopy
  15.         xdef    __slow_bzero
  16.         xdef    __slow_bset
  17.  
  18. __slow_bcopy:
  19.         move.l    4(sp),A0
  20.         move.l    8(sp),A1
  21.         move.l    12(sp),D0
  22.         beq    l10
  23. l1        move.b    (A0)+,(A1)+
  24.         subq.l    #1,D0
  25.         bne    l1
  26. l10        move.l    8(sp),D0
  27.         rts
  28.  
  29. __slow_bset:    move.b    12+3(sp),D1
  30.         bra    lxgo
  31.  
  32. __slow_bzero:
  33.         moveq.l #0,D1
  34. lxgo        move.l    4(sp),A0
  35.         move.l    8(sp),D0
  36.         beq    lx2
  37. lx1        move.b    D1,(A0)+
  38.         subq.l    #1,D0
  39.         bne    lx1
  40. lx2        move.l    4(sp),D0
  41.         rts
  42.  
  43.  
  44.         END
  45.  
  46.